with Ada.Text_IO;

package Strings.IO is


   procedure Get(X : in out Cercle);
   procedure Get(X : in out Texte);
   procedure Get(X : in out Individu);

   procedure Put(X : in Individu);
   procedure Put(X : in Cercle);
   procedure Put(X : in Texte);

   function getIndividu(mess : String) return Individu;
   function putIndividu(i : Individu) return String;

   function getCercle(mess : String) return Cercle;
   function putCercle(c : Cercle) return String;

   function getTexte(mess : String) return Texte;
   function putTexte(t : Texte) return String;

end Strings.IO;
